/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / langs / xlisp_21.zoo / xl-005.bug

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 46 72 6f 6d 20 73 63 65 | 21 6d 69 74 65 6c 21 75 |From sce|!mitel!u|
|00000010| 75 6e 65 74 21 7a 65 70 | 68 79 72 2e 65 6e 73 2e |unet!zep|hyr.ens.|
|00000020| 74 65 6b 2e 63 6f 6d 21 | 74 65 6b 63 72 6c 21 74 |tek.com!|tekcrl!t|
|00000030| 65 6b 67 76 73 21 74 6f | 6d 61 20 57 65 64 20 4a |ekgvs!to|ma Wed J|
|00000040| 61 6e 20 31 37 20 30 39 | 3a 35 36 3a 31 32 20 45 |an 17 09|:56:12 E|
|00000050| 53 54 20 31 39 39 30 0a | 41 72 74 69 63 6c 65 3a |ST 1990.|Article:|
|00000060| 20 35 33 20 6f 66 20 63 | 6f 6d 70 2e 6c 61 6e 67 | 53 of c|omp.lang|
|00000070| 2e 6c 69 73 70 2e 78 0a | 50 61 74 68 3a 20 63 6f |.lisp.x.|Path: co|
|00000080| 67 6e 6f 73 21 73 63 65 | 21 6d 69 74 65 6c 21 75 |gnos!sce|!mitel!u|
|00000090| 75 6e 65 74 21 7a 65 70 | 68 79 72 2e 65 6e 73 2e |unet!zep|hyr.ens.|
|000000a0| 74 65 6b 2e 63 6f 6d 21 | 74 65 6b 63 72 6c 21 74 |tek.com!|tekcrl!t|
|000000b0| 65 6b 67 76 73 21 74 6f | 6d 61 0a 46 72 6f 6d 3a |ekgvs!to|ma.From:|
|000000c0| 20 74 6f 6d 61 40 74 65 | 6b 67 76 73 2e 4c 41 42 | toma@te|kgvs.LAB|
|000000d0| 53 2e 54 45 4b 2e 43 4f | 4d 20 28 54 6f 6d 20 41 |S.TEK.CO|M (Tom A|
|000000e0| 6c 6d 79 29 0a 4e 65 77 | 73 67 72 6f 75 70 73 3a |lmy).New|sgroups:|
|000000f0| 20 63 6f 6d 70 2e 6c 61 | 6e 67 2e 6c 69 73 70 2e | comp.la|ng.lisp.|
|00000100| 78 0a 53 75 62 6a 65 63 | 74 3a 20 53 6f 6d 65 20 |x.Subjec|t: Some |
|00000110| 4d 6f 72 65 20 62 75 67 | 20 66 69 78 65 73 0a 4d |More bug| fixes.M|
|00000120| 65 73 73 61 67 65 2d 49 | 44 3a 20 3c 36 36 37 30 |essage-I|D: <6670|
|00000130| 40 74 65 6b 67 76 73 2e | 4c 41 42 53 2e 54 45 4b |@tekgvs.|LABS.TEK|
|00000140| 2e 43 4f 4d 3e 0a 44 61 | 74 65 3a 20 31 35 20 4a |.COM>.Da|te: 15 J|
|00000150| 61 6e 20 39 30 20 31 38 | 3a 32 37 3a 30 35 20 47 |an 90 18|:27:05 G|
|00000160| 4d 54 0a 52 65 70 6c 79 | 2d 54 6f 3a 20 74 6f 6d |MT.Reply|-To: tom|
|00000170| 61 40 74 65 6b 67 76 73 | 2e 4c 41 42 53 2e 54 45 |a@tekgvs|.LABS.TE|
|00000180| 4b 2e 43 4f 4d 20 28 54 | 6f 6d 20 41 6c 6d 79 29 |K.COM (T|om Almy)|
|00000190| 0a 4f 72 67 61 6e 69 7a | 61 74 69 6f 6e 3a 20 54 |.Organiz|ation: T|
|000001a0| 65 6b 74 72 6f 6e 69 78 | 2c 20 49 6e 63 2e 2c 20 |ektronix|, Inc., |
|000001b0| 42 65 61 76 65 72 74 6f | 6e 2c 20 20 4f 52 2e 0a |Beaverto|n,  OR..|
|000001c0| 4c 69 6e 65 73 3a 20 31 | 33 34 0a 0a 54 68 65 73 |Lines: 1|34..Thes|
|000001d0| 65 20 70 72 6f 62 6c 65 | 6d 73 20 77 65 72 65 20 |e proble|ms were |
|000001e0| 70 6f 69 6e 74 65 64 20 | 6f 75 74 20 74 6f 20 6d |pointed |out to m|
|000001f0| 65 20 62 79 20 50 61 75 | 6c 20 76 61 6e 20 4e 69 |e by Pau|l van Ni|
|00000200| 65 6b 65 72 6b 20 0a 28 | 6e 69 6b 6b 69 65 40 64 |ekerk .(|nikkie@d|
|00000210| 75 74 65 63 61 32 2e 74 | 75 64 65 6c 66 74 2e 6e |uteca2.t|udelft.n|
|00000220| 6c 29 2e 20 54 68 65 79 | 20 61 72 65 20 61 70 70 |l). They| are app|
|00000230| 6c 69 63 61 62 6c 65 20 | 74 6f 20 58 4c 49 53 50 |licable |to XLISP|
|00000240| 20 76 65 72 73 69 6f 6e | 73 20 32 2e 30 20 6f 72 | version|s 2.0 or|
|00000250| 20 32 2e 31 2e 0a 0a 50 | 52 4f 42 4c 45 4d 3a 20 | 2.1...P|ROBLEM: |
|00000260| 28 6c 61 73 74 20 27 28 | 61 20 62 20 2e 20 63 29 |(last '(|a b . c)|
|00000270| 29 20 72 65 74 75 72 6e | 73 20 63 20 72 61 74 68 |) return|s c rath|
|00000280| 65 72 20 74 68 61 6e 20 | 28 62 20 2e 20 63 29 0a |er than |(b . c).|
|00000290| 53 4f 4c 55 54 49 4f 4e | 3a 20 69 6e 20 78 6c 6c |SOLUTION|: in xll|
|000002a0| 69 73 74 2e 63 2c 20 72 | 65 70 6c 61 63 65 20 78 |ist.c, r|eplace x|
|000002b0| 6c 61 73 74 20 77 69 74 | 68 3a 0a 0a 2f 2a 20 78 |last wit|h:../* x|
|000002c0| 6c 61 73 74 20 2d 20 72 | 65 74 75 72 6e 20 74 68 |last - r|eturn th|
|000002d0| 65 20 6c 61 73 74 20 63 | 6f 6e 73 20 6f 66 20 61 |e last c|ons of a|
|000002e0| 20 6c 69 73 74 20 2a 2f | 0a 4c 56 41 4c 20 78 6c | list */|.LVAL xl|
|000002f0| 61 73 74 28 29 0a 7b 0a | 09 4c 56 41 4c 20 6c 69 |ast().{.|.LVAL li|
|00000300| 73 74 3b 0a 0a 09 2f 2a | 20 67 65 74 20 74 68 65 |st;.../*| get the|
|00000310| 20 6c 69 73 74 20 2a 2f | 0a 09 6c 69 73 74 20 3d | list */|..list =|
|00000320| 20 78 6c 67 61 6c 69 73 | 74 28 29 3b 0a 09 78 6c | xlgalis|t();..xl|
|00000330| 6c 61 73 74 61 72 67 28 | 29 3b 0a 0a 09 2f 2a 20 |lastarg(|);.../* |
|00000340| 66 69 6e 64 20 74 68 65 | 20 6c 61 73 74 20 63 6f |find the| last co|
|00000350| 6e 73 20 2a 2f 0a 09 69 | 66 20 28 63 6f 6e 73 70 |ns */..i|f (consp|
|00000360| 28 6c 69 73 74 29 29 0a | 09 09 77 68 69 6c 65 20 |(list)).|..while |
|00000370| 28 63 6f 6e 73 70 28 63 | 64 72 28 6c 69 73 74 29 |(consp(c|dr(list)|
|00000380| 29 29 20 6c 69 73 74 20 | 3d 20 63 64 72 28 6c 69 |)) list |= cdr(li|
|00000390| 73 74 29 3b 0a 0a 09 2f | 2a 20 72 65 74 75 72 6e |st);.../|* return|
|000003a0| 20 74 68 65 20 6c 61 73 | 74 20 65 6c 65 6d 65 6e | the las|t elemen|
|000003b0| 74 20 2a 2f 0a 09 72 65 | 74 75 72 6e 20 28 6c 69 |t */..re|turn (li|
|000003c0| 73 74 29 3b 0a 7d 0a 0a | 50 52 4f 42 4c 45 4d 3a |st);.}..|PROBLEM:|
|000003d0| 20 66 75 6e 63 74 69 6f | 6e 73 20 62 6f 75 6e 64 | functio|ns bound|
|000003e0| 70 2c 20 66 62 6f 75 6e | 64 70 2c 20 73 79 6d 62 |p, fboun|dp, symb|
|000003f0| 6f 6c 2d 6e 61 6d 65 2c | 20 73 79 6d 62 6f 6c 2d |ol-name,| symbol-|
|00000400| 76 61 6c 75 65 2c 20 61 | 6e 64 20 0a 73 79 6d 62 |value, a|nd .symb|
|00000410| 6f 6c 2d 70 6c 69 73 74 | 20 66 61 69 6c 20 6f 6e |ol-plist| fail on|
|00000420| 20 4e 49 4c 20 28 77 68 | 69 63 68 20 2a 69 73 2a | NIL (wh|ich *is*|
|00000430| 20 61 20 73 79 6d 62 6f | 6c 29 2c 20 61 6e 64 20 | a symbo|l), and |
|00000440| 73 79 6d 62 6f 6c 2d 66 | 75 6e 63 74 69 6f 6e 20 |symbol-f|unction |
|00000450| 66 61 69 6c 73 20 0a 69 | 6d 70 72 6f 70 65 72 6c |fails .i|mproperl|
|00000460| 79 20 28 77 72 6f 6e 67 | 20 65 72 72 6f 72 20 6d |y (wrong| error m|
|00000470| 65 73 73 61 67 65 29 2e | 0a 0a 53 4f 4c 55 54 49 |essage).|..SOLUTI|
|00000480| 4f 4e 3a 0a 0a 49 6e 20 | 78 6c 69 73 70 2e 68 2c |ON:..In |xlisp.h,|
|00000490| 20 61 64 64 3a 0a 0a 23 | 64 65 66 69 6e 65 20 78 | add:..#|define x|
|000004a0| 6c 67 61 73 79 6d 6f 72 | 6e 69 6c 28 29 09 28 2a |lgasymor|nil().(*|
|000004b0| 78 6c 61 72 67 76 3d 3d | 4e 49 4c 20 7c 7c 20 73 |xlargv==|NIL || s|
|000004c0| 79 6d 62 6f 6c 70 28 2a | 78 6c 61 72 67 76 29 20 |ymbolp(*|xlargv) |
|000004d0| 3f 20 6e 65 78 74 61 72 | 67 28 29 20 3a 20 78 6c |? nextar|g() : xl|
|000004e0| 62 61 64 74 79 70 65 28 | 2a 78 6c 61 72 67 76 29 |badtype(|*xlargv)|
|000004f0| 29 0a 0a 49 6e 20 78 6c | 62 66 75 6e 2e 63 2c 20 |)..In xl|bfun.c, |
|00000500| 63 68 61 6e 67 65 20 66 | 75 6e 63 74 69 6f 6e 73 |change f|unctions|
|00000510| 20 74 6f 20 74 68 65 20 | 66 6f 6c 6c 6f 77 69 6e | to the |followin|
|00000520| 67 3a 0a 0a 2f 2a 20 78 | 62 6f 75 6e 64 70 20 2d |g:../* x|boundp -|
|00000530| 20 69 73 20 74 68 69 73 | 20 61 20 76 61 6c 75 65 | is this| a value|
|00000540| 20 62 6f 75 6e 64 20 74 | 6f 20 74 68 69 73 20 73 | bound t|o this s|
|00000550| 79 6d 62 6f 6c 3f 20 2a | 2f 0a 4c 56 41 4c 20 78 |ymbol? *|/.LVAL x|
|00000560| 62 6f 75 6e 64 70 28 29 | 0a 7b 0a 09 4c 56 41 4c |boundp()|.{..LVAL|
|00000570| 20 73 79 6d 3b 0a 09 73 | 79 6d 20 3d 20 78 6c 67 | sym;..s|ym = xlg|
|00000580| 61 73 79 6d 6f 72 6e 69 | 6c 28 29 3b 0a 09 78 6c |asymorni|l();..xl|
|00000590| 6c 61 73 74 61 72 67 28 | 29 3b 0a 09 72 65 74 75 |lastarg(|);..retu|
|000005a0| 72 6e 20 28 73 79 6d 20 | 3d 3d 20 4e 49 4c 20 7c |rn (sym |== NIL ||
|000005b0| 7c 20 62 6f 75 6e 64 70 | 28 73 79 6d 29 20 3f 20 || boundp|(sym) ? |
|000005c0| 74 72 75 65 20 3a 20 4e | 49 4c 29 3b 0a 7d 0a 0a |true : N|IL);.}..|
|000005d0| 2f 2a 20 78 66 62 6f 75 | 6e 64 70 20 2d 20 69 73 |/* xfbou|ndp - is|
|000005e0| 20 74 68 69 73 20 61 20 | 66 75 6e 63 74 69 6f 6e | this a |function|
|000005f0| 61 6c 20 76 61 6c 75 65 | 20 62 6f 75 6e 64 20 74 |al value| bound t|
|00000600| 6f 20 74 68 69 73 20 73 | 79 6d 62 6f 6c 3f 20 2a |o this s|ymbol? *|
|00000610| 2f 0a 4c 56 41 4c 20 78 | 66 62 6f 75 6e 64 70 28 |/.LVAL x|fboundp(|
|00000620| 29 0a 7b 0a 09 4c 56 41 | 4c 20 73 79 6d 3b 0a 09 |).{..LVA|L sym;..|
|00000630| 73 79 6d 20 3d 20 78 6c | 67 61 73 79 6d 6f 72 6e |sym = xl|gasymorn|
|00000640| 69 6c 28 29 3b 0a 09 78 | 6c 6c 61 73 74 61 72 67 |il();..x|llastarg|
|00000650| 28 29 3b 0a 09 72 65 74 | 75 72 6e 20 28 73 79 6d |();..ret|urn (sym|
|00000660| 20 21 3d 20 4e 49 4c 20 | 26 26 20 66 62 6f 75 6e | != NIL |&& fboun|
|00000670| 64 70 28 73 79 6d 29 20 | 3f 20 74 72 75 65 20 3a |dp(sym) |? true :|
|00000680| 20 4e 49 4c 29 3b 0a 7d | 0a 0a 2f 2a 20 78 73 79 | NIL);.}|../* xsy|
|00000690| 6d 6e 61 6d 65 20 2d 20 | 67 65 74 20 74 68 65 20 |mname - |get the |
|000006a0| 70 72 69 6e 74 20 6e 61 | 6d 65 20 6f 66 20 61 20 |print na|me of a |
|000006b0| 73 79 6d 62 6f 6c 20 2a | 2f 0a 4c 56 41 4c 20 78 |symbol *|/.LVAL x|
|000006c0| 73 79 6d 6e 61 6d 65 28 | 29 0a 7b 0a 09 4c 56 41 |symname(|).{..LVA|
|000006d0| 4c 20 73 79 6d 3b 0a 0a | 09 2f 2a 20 67 65 74 20 |L sym;..|./* get |
|000006e0| 74 68 65 20 73 79 6d 62 | 6f 6c 20 2a 2f 0a 09 73 |the symb|ol */..s|
|000006f0| 79 6d 20 3d 20 78 6c 67 | 61 73 79 6d 6f 72 6e 69 |ym = xlg|asymorni|
|00000700| 6c 28 29 3b 0a 09 78 6c | 6c 61 73 74 61 72 67 28 |l();..xl|lastarg(|
|00000710| 29 3b 0a 0a 09 2f 2a 20 | 68 61 6e 64 6c 65 20 4e |);.../* |handle N|
|00000720| 49 4c 2c 20 77 68 69 63 | 68 20 69 73 20 6e 6f 74 |IL, whic|h is not|
|00000730| 20 69 6e 74 65 72 6e 61 | 6c 6c 79 20 72 65 70 72 | interna|lly repr|
|00000740| 65 73 65 6e 74 65 64 20 | 61 73 20 61 20 73 79 6d |esented |as a sym|
|00000750| 62 6f 6c 20 2a 2f 0a 09 | 69 66 20 28 73 79 6d 20 |bol */..|if (sym |
|00000760| 3d 3d 20 4e 49 4c 29 20 | 7b 0a 09 09 73 79 6d 20 |== NIL) |{...sym |
|00000770| 3d 20 6e 65 77 73 74 72 | 69 6e 67 28 34 29 3b 0a |= newstr|ing(4);.|
|00000780| 09 09 73 74 72 63 70 79 | 28 67 65 74 73 74 72 69 |..strcpy|(getstri|
|00000790| 6e 67 28 73 79 6d 29 2c | 20 22 4e 49 4c 22 29 3b |ng(sym),| "NIL");|
|000007a0| 0a 09 09 72 65 74 75 72 | 6e 20 73 79 6d 3b 0a 09 |...retur|n sym;..|
|000007b0| 7d 0a 0a 09 2f 2a 20 72 | 65 74 75 72 6e 20 74 68 |}.../* r|eturn th|
|000007c0| 65 20 70 72 69 6e 74 20 | 6e 61 6d 65 20 2a 2f 0a |e print |name */.|
|000007d0| 09 72 65 74 75 72 6e 20 | 28 67 65 74 70 6e 61 6d |.return |(getpnam|
|000007e0| 65 28 73 79 6d 29 29 3b | 0a 7d 0a 0a 2f 2a 20 78 |e(sym));|.}../* x|
|000007f0| 73 79 6d 76 61 6c 75 65 | 20 2d 20 67 65 74 20 74 |symvalue| - get t|
|00000800| 68 65 20 76 61 6c 75 65 | 20 6f 66 20 61 20 73 79 |he value| of a sy|
|00000810| 6d 62 6f 6c 20 2a 2f 0a | 4c 56 41 4c 20 78 73 79 |mbol */.|LVAL xsy|
|00000820| 6d 76 61 6c 75 65 28 29 | 0a 7b 0a 09 4c 56 41 4c |mvalue()|.{..LVAL|
|00000830| 20 73 79 6d 2c 76 61 6c | 3b 0a 0a 09 2f 2a 20 67 | sym,val|;.../* g|
|00000840| 65 74 20 74 68 65 20 73 | 79 6d 62 6f 6c 20 2a 2f |et the s|ymbol */|
|00000850| 0a 09 73 79 6d 20 3d 20 | 78 6c 67 61 73 79 6d 6f |..sym = |xlgasymo|
|00000860| 72 6e 69 6c 28 29 3b 0a | 09 78 6c 6c 61 73 74 61 |rnil();.|.xllasta|
|00000870| 72 67 28 29 3b 0a 0a 09 | 2f 2a 20 68 61 6e 64 6c |rg();...|/* handl|
|00000880| 65 20 4e 49 4c 20 2a 2f | 0a 09 69 66 20 28 73 79 |e NIL */|..if (sy|
|00000890| 6d 20 3d 3d 20 4e 49 4c | 29 20 72 65 74 75 72 6e |m == NIL|) return|
|000008a0| 20 28 4e 49 4c 29 3b 0a | 0a 09 2f 2a 20 67 65 74 | (NIL);.|../* get|
|000008b0| 20 74 68 65 20 67 6c 6f | 62 61 6c 20 76 61 6c 75 | the glo|bal valu|
|000008c0| 65 20 2a 2f 0a 09 77 68 | 69 6c 65 20 28 28 76 61 |e */..wh|ile ((va|
|000008d0| 6c 20 3d 20 67 65 74 76 | 61 6c 75 65 28 73 79 6d |l = getv|alue(sym|
|000008e0| 29 29 20 3d 3d 20 73 5f | 75 6e 62 6f 75 6e 64 29 |)) == s_|unbound)|
|000008f0| 0a 09 09 78 6c 75 6e 62 | 6f 75 6e 64 28 73 79 6d |...xlunb|ound(sym|
|00000900| 29 3b 0a 0a 09 2f 2a 20 | 72 65 74 75 72 6e 20 69 |);.../* |return i|
|00000910| 74 73 20 76 61 6c 75 65 | 20 2a 2f 0a 09 72 65 74 |ts value| */..ret|
|00000920| 75 72 6e 20 28 76 61 6c | 29 3b 0a 7d 0a 0a 2f 2a |urn (val|);.}../*|
|00000930| 20 78 73 79 6d 66 75 6e | 63 74 69 6f 6e 20 2d 20 | xsymfun|ction - |
|00000940| 67 65 74 20 74 68 65 20 | 66 75 6e 63 74 69 6f 6e |get the |function|
|00000950| 61 6c 20 76 61 6c 75 65 | 20 6f 66 20 61 20 73 79 |al value| of a sy|
|00000960| 6d 62 6f 6c 20 2a 2f 0a | 4c 56 41 4c 20 78 73 79 |mbol */.|LVAL xsy|
|00000970| 6d 66 75 6e 63 74 69 6f | 6e 28 29 0a 7b 0a 09 4c |mfunctio|n().{..L|
|00000980| 56 41 4c 20 73 79 6d 2c | 76 61 6c 3b 0a 0a 09 2f |VAL sym,|val;.../|
|00000990| 2a 20 67 65 74 20 74 68 | 65 20 73 79 6d 62 6f 6c |* get th|e symbol|
|000009a0| 20 2a 2f 0a 09 73 79 6d | 20 3d 20 78 6c 67 61 73 | */..sym| = xlgas|
|000009b0| 79 6d 6f 72 6e 69 6c 28 | 29 3b 0a 09 78 6c 6c 61 |ymornil(|);..xlla|
|000009c0| 73 74 61 72 67 28 29 3b | 0a 0a 09 2f 2a 20 68 61 |starg();|.../* ha|
|000009d0| 6e 64 6c 65 20 4e 49 4c | 20 2a 2f 0a 09 69 66 20 |ndle NIL| */..if |
|000009e0| 28 73 79 6d 20 3d 3d 20 | 4e 49 4c 29 20 7b 0a 09 |(sym == |NIL) {..|
|000009f0| 09 77 68 69 6c 65 20 28 | 31 29 0a 09 09 09 78 6c |.while (|1)....xl|
|00000a00| 66 75 6e 62 6f 75 6e 64 | 28 73 79 6d 29 3b 0a 09 |funbound|(sym);..|
|00000a10| 7d 0a 0a 0a 09 2f 2a 20 | 67 65 74 20 74 68 65 20 |}..../* |get the |
|00000a20| 67 6c 6f 62 61 6c 20 76 | 61 6c 75 65 20 2a 2f 0a |global v|alue */.|
|00000a30| 09 77 68 69 6c 65 20 28 | 28 76 61 6c 20 3d 20 67 |.while (|(val = g|
|00000a40| 65 74 66 75 6e 63 74 69 | 6f 6e 28 73 79 6d 29 29 |etfuncti|on(sym))|
|00000a50| 20 3d 3d 20 73 5f 75 6e | 62 6f 75 6e 64 29 0a 09 | == s_un|bound)..|
|00000a60| 09 78 6c 66 75 6e 62 6f | 75 6e 64 28 73 79 6d 29 |.xlfunbo|und(sym)|
|00000a70| 3b 0a 0a 09 2f 2a 20 72 | 65 74 75 72 6e 20 69 74 |;.../* r|eturn it|
|00000a80| 73 20 76 61 6c 75 65 20 | 2a 2f 0a 09 72 65 74 75 |s value |*/..retu|
|00000a90| 72 6e 20 28 76 61 6c 29 | 3b 0a 7d 0a 0a 2f 2a 20 |rn (val)|;.}../* |
|00000aa0| 78 73 79 6d 70 6c 69 73 | 74 20 2d 20 67 65 74 20 |xsymplis|t - get |
|00000ab0| 74 68 65 20 70 72 6f 70 | 65 72 74 79 20 6c 69 73 |the prop|erty lis|
|00000ac0| 74 20 6f 66 20 61 20 73 | 79 6d 62 6f 6c 20 2a 2f |t of a s|ymbol */|
|00000ad0| 0a 4c 56 41 4c 20 78 73 | 79 6d 70 6c 69 73 74 28 |.LVAL xs|ymplist(|
|00000ae0| 29 0a 7b 0a 09 4c 56 41 | 4c 20 73 79 6d 3b 0a 0a |).{..LVA|L sym;..|
|00000af0| 09 2f 2a 20 67 65 74 20 | 74 68 65 20 73 79 6d 62 |./* get |the symb|
|00000b00| 6f 6c 20 2a 2f 0a 09 73 | 79 6d 20 3d 20 78 6c 67 |ol */..s|ym = xlg|
|00000b10| 61 73 79 6d 6f 72 6e 69 | 6c 28 29 3b 0a 09 78 6c |asymorni|l();..xl|
|00000b20| 6c 61 73 74 61 72 67 28 | 29 3b 0a 0a 09 2f 2a 20 |lastarg(|);.../* |
|00000b30| 72 65 74 75 72 6e 20 74 | 68 65 20 70 72 6f 70 65 |return t|he prope|
|00000b40| 72 74 79 20 6c 69 73 74 | 20 2a 2f 0a 09 72 65 74 |rty list| */..ret|
|00000b50| 75 72 6e 20 28 73 79 6d | 20 3d 3d 20 4e 49 4c 20 |urn (sym| == NIL |
|00000b60| 3f 20 4e 49 4c 20 3a 20 | 67 65 74 70 6c 69 73 74 |? NIL : |getplist|
|00000b70| 28 73 79 6d 29 29 3b 0a | 7d 0a 0a 0a 54 6f 6d 20 |(sym));.|}...Tom |
|00000b80| 41 6c 6d 79 0a 74 6f 6d | 61 40 74 65 6b 67 76 73 |Almy.tom|a@tekgvs|
|00000b90| 2e 6c 61 62 73 2e 74 65 | 6b 2e 63 6f 6d 0a 53 74 |.labs.te|k.com.St|
|00000ba0| 61 6e 64 61 72 64 20 44 | 69 73 63 6c 61 69 6d 65 |andard D|isclaime|
|00000bb0| 72 73 20 41 70 70 6c 79 | 0a 0a 0a                |rs Apply|...     |
+--------+-------------------------+-------------------------+--------+--------+